subroutine init_react_data(lunit)
  use data_param,only:react_exist
  use label_data_param,only:n_obj_type
  use react_data_param,only:n_react_type
  use react_data_param,only:react_type
  use react_data_param,only:react_map
  implicit none
  
  integer,intent(in) :: lunit
  integer :: i,j,ierr

  ! Set the default value as zero
  n_react_type=0
  nullify(react_type)
  nullify(react_map)

  allocate(react_map(n_obj_type,n_obj_type),stat=ierr)

  if (ierr.ne.0) call abnormal_stop("init_reaction_data",&
       "Memory allocation causes an error.")

  do i=1,n_obj_type
     do j=1,n_obj_type
        react_map(j,i)=0
     end do
  end do

  return

end subroutine init_react_data
